#!/usr/bin/env perl 
#===============================================================================
#
#         FILE: Proc_ProcessTable.pl
#
#        USAGE: ./Proc_ProcessTable.pl  
#
#  DESCRIPTION: 
#
#      OPTIONS: ---
# REQUIREMENTS: ---
#         BUGS: ---
#        NOTES: ---
#       AUTHOR: YOUR NAME (), 
# ORGANIZATION: 
#      VERSION: 1.0
#      CREATED: 07/31/2013 03:29:32 AM
#     REVISION: ---
#===============================================================================

use strict;
use warnings;
use utf8;
use Proc::ProcessTable;

my $pt = new Proc::ProcessTable;

foreach(reverse sort @{$pt->table}) 
{
        print $_->pid, " => ";
		print $_->cmndline, "\n";
}
exit 0;
